home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).po / EIGHTY.COLUMN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  806b  |  17 lines
  1. 10  REM  PROGRAM 80 COLUMN SCREEN SAVE
  2. 20  REM  SAVES CONTENTS OF AN 80 COLUMN SCREEN TO A DISK FILE
  3. 30  REM  TO TWO FILES ON DISK
  4. 40  PRINT  CHR$(4)"PR#3": REM  TURN ON 80 COLUMN
  5. 50  PRINT "THIS IS A TEST OF THE 80 COLUMN SCREEN SAVE FUNCTION"
  6. 60  LIST 
  7. 70  PRINT  CHR$(4)"BSAVE SCREEN1,A$400,L$400"
  8. 80  POKE 49237,0: REM  SELECT AUXILIARY MEMORY
  9. 90  PRINT  CHR$(4)"BSAVE SCREEN1,A$400,L$400,B$401"
  10. 100  POKE 49236,0: REM  RETURN TO MAIN MEMORY
  11. 105  FOR X = 1 TO 1000: NEXT : REM  KILL TIME
  12. 110  HOME :V =  PEEK(48984): POKE 48984,0: REM  TURN OFF PRODOS PROTECTION
  13. 120  PRINT  CHR$(4)"BLOAD SCREEN1,L$400"
  14. 130  POKE 49237,0: REM  SWITCH TO AUXILIARY MEMORY
  15. 140  PRINT  CHR$(4)"BLOAD SCREEN1,L$400,B$401"
  16. 150  POKE 49236,0: POKE 48984,V: REM  RESTORE MAIN MEM & PROTECTION
  17. 160  VTAB 22: PRINT "ALL DONE !"